home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / cnet / wof_cnet_641.lha / wof / WOF_Install < prev    next >
Text File  |  1995-08-07  |  18KB  |  498 lines
  1. ; Installation Script for Wheel of Fortune, v6.41 by Dotoran of Frontiers!
  2. ;
  3. ; You need a copy of Commodore's Installer file(included with WOF)
  4. ; Please launch this script from the ICON ONLY!
  5.  
  6. (set @default-dest "PFiles:WoFortune")
  7. (set temp "PFiles:WOFTemp" temp2 (cat temp "/WoFortune"))
  8. (set temp3 (cat temp2 "/Graphics"))
  9. (set flag (exists "PFiles:WoFortune.Config" (noreq)))
  10. (set f1 2 f2 2 f3 0 Ver0 0 Ver1 0 Ver2 0 Ver3 0)
  11.  
  12. (procedure FIRST_TIME
  13.  
  14.   (complete 20)
  15.  
  16.   (makedir @default-dest)
  17.   (makedir "PFiles:WoFortune/Graphics")
  18.   (makedir "PFiles:WoFortune/Register")
  19.   (makedir "PFiles:WoFortune/Guides")
  20.   (makedir "PFiles:WoFortune/data")
  21.  
  22.   (complete 30)
  23.  
  24.   (set ver
  25.     (askoptions
  26.       (prompt "Pat asks, \"Which versions of the Wheel of Fortune game "
  27.               "do you wish to install now? Hit the HELP button for more "
  28.               "info on the different versions.\"")
  29.       (help "Vanna explains, \"There are three versions of the game:\n\n"
  30.             "   ASCII - Contains NO color codes or IBM graphic characters.\n\n"
  31.             "    ANSI - Contains COLOR, but uses ONLY character graphics.\n\n"
  32.             "IBM-ANSI - Contains BOTH Color and IBM Graphic Characters.\"")
  33.       (choices "The ASC Version (Ascii)"
  34.                "The ANS Version (Amiga-Ansi)"
  35.                "The IBM Version (IBM-Ansi)")
  36.       (default "111")
  37.     )
  38.   )
  39.  
  40.   (if (= ver 0)
  41.     (
  42.       (message "Pat exclaims, \"What? you have to specify at least ONE of "
  43.                "the versions. Installing ALL versions now!\"")
  44.       (set ver "111")
  45.     )
  46.   )
  47.  
  48.   (if (= ver 7) (set Ver0 1 Ver1 1 Ver2 1 Ver3 1))
  49.   (if (OR (= ver 1) (= ver 3) (= ver 5)) (set Ver1 1))
  50.   (if (OR (= ver 2) (= ver 3) (= ver 6)) (set Ver2 1))
  51.   (if (OR (= ver 4) (= ver 5) (= ver 6)) (set Ver3 1))
  52.  
  53.   (complete 40)
  54.  
  55.   (working "Pat continues, \"Unpacking Wheel of Fortune support files.\"")
  56.  
  57.   (run "lha x PFiles:WOFTemp/WoFortune/Support.LHA PFiles:WoFortune/")
  58.  
  59.   (complete 45)
  60.  
  61.   (copyfiles
  62.     (source  temp)
  63.     (dest    "PFiles:")
  64.     (pattern "WoFortune.Config")
  65.   )
  66.  
  67.   (complete 50)
  68.  
  69.   (if (OR (= Ver0 1) (= Ver1 1))
  70.     ( (working "...Installing ASCII Game Module & Docs...")
  71.       (run "lha x PFiles:WOFTemp/WoFortune/GameASC.LHA PFiles:WoFortune/")
  72.       (complete 55)
  73.       (working "...Installing ASCII Graphic Picture Files...")
  74.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsASC.LHA PFiles:WoFortune/Graphics/")
  75.     )
  76.   )
  77.  
  78.   (complete 60)
  79.  
  80.   (if (OR (= Ver0 1) (= Ver2 1))
  81.     ( (working "...Installing ANSI Game Module & Docs...")
  82.       (run "lha x PFiles:WOFTemp/WoFortune/GameANS.LHA PFiles:WoFortune/")
  83.       (complete 65)
  84.       (working "...Installing ANSI Graphic Picture Files...")
  85.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsANS.LHA PFiles:WoFortune/Graphics/")
  86.     )
  87.   )
  88.  
  89.   (complete 70)
  90.  
  91.   (if (OR (= Ver0 1) (= Ver3 1))
  92.     ( (working "...Installing IBM-ANSI Game Module & Docs...")
  93.       (run "lha x PFiles:WOFTemp/WoFortune/GameIBM.LHA PFiles:WoFortune/")
  94.       (complete 75)
  95.       (working "...Installing IBM-ANSI Graphic Picture Files...")
  96.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsIBM.LHA PFiles:WoFortune/Graphics/")
  97.     )
  98.   )
  99.  
  100.   (complete 80)
  101.  
  102.   (set f3
  103.     (askbool
  104.       (prompt "Pat tells you, \"I need to make a change to line 920 of your "
  105.               "BBSTEXT file, as well as ADDING four NEW commands to Menu # 2 "
  106.               "in your BBSMENU file. Is it alright if I do this automatically?\"")
  107.       (help "Slinking up to you, Vanna says, \"The installer uses the "
  108.             "FPInstall tool to make automatic changes to lines in your "
  109.             "BBSTEXT and BBSMENU files. Dotoran assures me it works 100%, "
  110.             "but I guess we can ALL be a little skeptic. Backups of BOTH "
  111.             "files are automatically created, so you really won't destroy "
  112.             "anything in the process.\"")
  113.       (default "1")
  114.       (choices "Yes, Go Ahead!" "No, I'll Do It!")
  115.     )
  116.   )
  117.   (if (= f3 1)
  118.     ( (working "Pat asks, \"Please wait a second, while I make the needed "
  119.                "changes to all BBSTEXT/BBSMENU files...\"")
  120.       (run "FPInstall WOFf.FP_Install CNET:")
  121.     )
  122.     (message "Pat looks at you quizically, then says, \"Alright, but be "
  123.              "sure to read the `README.guide' file to find out which lines "
  124.              "to change!\"")
  125.   )
  126.  
  127.   (complete 90)
  128.  
  129.   (working "Pat states, \"Almost done with the installation. Just have to "
  130.            "clean up a bit first!\"")
  131.  
  132.   (run "delete pfiles:WOFTemp/ all")
  133.   (makedir "pfiles:WoFortune/Install")
  134.   (run "copy #? pfiles:WoFortune/Install")
  135.   (run "delete #? all")
  136.  
  137.   (complete 100)
  138.  
  139.   (message "Wheel of Fortune, v6.41 has been successfully installed into "
  140.            "your system.\n\nYou'll need to RELOAD your BBSTEXT/BBSMENU "
  141.            "files by selecting the CNet Control Panel, then pressing the "
  142.            "RAMIGA-T key combo.\n\nYou should then log onto your bbs and "
  143.            "type WOFS from your Main Prompt> to enter the game's Config "
  144.            "File, where you can set numerous game play options.\n\nPlease "
  145.            "refer to the `README.guide' file for information on the other "
  146.            "commands that were added to your BBSMENU file.")
  147.   (exit)
  148. )
  149.  
  150. (procedure CONVERT640
  151.  
  152.   (set ok
  153.     (askbool
  154.       (prompt "Pat tells you, \"You'll want to make sure NOONE is presently "
  155.               "using any of the WOF modules before attempting this upgrade. "
  156.               "The safest way to insure this is to take the board down, but "
  157.               "the decision is yours. Is it OK to continue with the upgrade?\"")
  158.       (help "Vanna meanders over to you, \"It wouldn't do to have a user or "
  159.             "two playing the game, while we were trying to clean up the "
  160.             "game, now would it?\"")
  161.       (default "1")
  162.       (choices "Yes, please proceed." "No, please abort for now.")
  163.     )
  164.   )
  165.  
  166.   (if (= ok 0)
  167.     ( (message "Alright then, please insure it is safe to continue, then "
  168.                "reload this upgrade script.")
  169.       (exit)
  170.     )
  171.   )
  172.  
  173.   (complete 20)
  174.  
  175.   (working "Pat says, \"Please wait while I delete some older files from "
  176.            "your designated WoFortune directory. I also need to update "
  177.            "your WoFortune.Config file. I'll also rename your PuzData "
  178.            "file if I find you're a registered WOF owner, so it won't "
  179.            "be mistakenly overwritten later.\"")
  180.  
  181.   (run "rx WOF_Install.Rexx3")
  182.  
  183.   (complete 50)
  184.  
  185.   (set ver
  186.     (askoptions
  187.       (prompt "Pat asks, \"Which versions of the Wheel of Fortune game "
  188.               "do you wish to install now? Hit the HELP button for more "
  189.               "info on the different versions.\"")
  190.       (help "Vanna explains, \"There are three versions of the game:\n\n"
  191.             "   ASCII - Contains NO color codes or IBM graphic characters.\n\n"
  192.             "    ANSI - Contains COLOR, but uses ONLY character graphics.\n\n"
  193.             "IBM-ANSI - Contains BOTH Color and IBM Graphic Characters.\"")
  194.       (choices "The ASC Version (Ascii)"
  195.                "The ANS Version (Amiga-Ansi)"
  196.                "The IBM Version (IBM-Ansi)")
  197.       (default "111")
  198.     )
  199.   )
  200.  
  201.   (if (= ver 0)
  202.     (
  203.       (message "Pat exclaims, \"What? you have to specify at least ONE of "
  204.                "the versions. Installing ALL versions now!\"")
  205.       (set ver "111")
  206.     )
  207.   )
  208.  
  209.   (if (= ver 7) (set Ver0 1 Ver1 1 Ver2 1 Ver3 1))
  210.   (if (OR (= ver 1) (= ver 3) (= ver 5)) (set Ver1 1))
  211.   (if (OR (= ver 2) (= ver 3) (= ver 6)) (set Ver2 1))
  212.   (if (OR (= ver 4) (= ver 5) (= ver 6)) (set Ver3 1))
  213.  
  214.   (complete 60)
  215.  
  216.   (working "Pat continues, \"Unpacking Wheel of Fortune support files.\"")
  217.  
  218.   (set df (getenv "WOFPath") df2 (cat df "Graphics/") df3 (cat df "Install/"))
  219.  
  220.   (run "lha x PFiles:WOFTemp/WoFortune/Support.LHA "df)
  221.  
  222.   (complete 70)
  223.  
  224.   (if (OR (= Ver0 1) (= Ver1 1))
  225.     ( (working "...Installing ASCII Game Module & Docs...")
  226.       (run "lha x PFiles:WOFTemp/WoFortune/GameASC.LHA "df)
  227.       (complete 75)
  228.       (working "...Installing ASCII Graphic Picture Files...")
  229.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsASC.LHA "df2)
  230.     )
  231.   )
  232.  
  233.   (complete 80)
  234.  
  235.   (if (OR (= Ver0 1) (= Ver2 1))
  236.     ( (working "...Installing ANSI Game Module & Docs...")
  237.       (run "lha x PFiles:WOFTemp/WoFortune/GameANS.LHA "df)
  238.       (complete 85)
  239.       (working "...Installing ANSI Graphic Picture Files...")
  240.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsANS.LHA "df2)
  241.     )
  242.   )
  243.  
  244.   (complete 90)
  245.  
  246.   (if (OR (= Ver0 1) (= Ver3 1))
  247.     ( (working "...Installing IBM-ANSI Game Module & Docs...")
  248.       (run "lha x PFiles:WOFTemp/WoFortune/GameIBM.LHA "df)
  249.       (complete 95)
  250.       (working "...Installing IBM-ANSI Graphic Picture Files...")
  251.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsIBM.LHA "df2)
  252.     )
  253.   )
  254.  
  255.   (complete 97)
  256.  
  257.   (working "Pat states, \"Almost done with the installation. Just have to "
  258.            "clean up a bit first!\"")
  259.  
  260.   (run "delete pfiles:WOFTemp/ all")
  261.   (run "copy #? "df3)
  262.   (run "delete #? all")
  263.  
  264.   (complete 100)
  265.  
  266.   (message "Your Wheel of Fortune has been successfully upgraded to v6.41!"
  267.            "\n\nPlease refer to the `HISTORY.guide' file for specific "
  268.            "information on what, exactly, has changed since v6.40.")
  269.  
  270.   (exit)
  271. )
  272.  
  273. (procedure CONVERT63C
  274.  
  275.   (set ok
  276.     (askbool
  277.       (prompt "Pat tells you, \"You'll want to make sure NOONE is presently "
  278.               "using any of the WOF modules before attempting this upgrade. "
  279.               "The safest way to insure this is to take the board down, but "
  280.               "the decision is yours. Is it OK to continue with the upgrade?\"")
  281.       (help "Vanna meanders over to you, \"It wouldn't do to have a user or "
  282.             "two playing the game, while we were trying to clean up the "
  283.             "game, now would it?\"")
  284.       (default "1")
  285.       (choices "Yes, please proceed." "No, please abort for now.")
  286.     )
  287.   )
  288.  
  289.   (if (= ok 0)
  290.     ( (message "Alright then, please insure it is safe to continue, then "
  291.                "reload this upgrade script.")
  292.       (exit)
  293.     )
  294.   )
  295.  
  296.   (complete 20)
  297.  
  298.   (working "Pat says, \"Please wait while I delete some older files from "
  299.            "your designated WoFortune directory. I also need to update "
  300.            "your WoFortune.Config and your Players files. If I see you are "
  301.            "a registered WOF owner, I'll also rename your PuzData file, "
  302.            "so it won't be mistakenly overwritten later.\"")
  303.  
  304.   (run "rx WOF_Install.Rexx2")
  305.  
  306.   (complete 40)
  307.  
  308.   (set ver
  309.     (askoptions
  310.       (prompt "Pat asks, \"Which versions of the Wheel of Fortune game "
  311.               "do you wish to install now? Hit the HELP button for more "
  312.               "info on the different versions.\"")
  313.       (help "Vanna explains, \"There are three versions of the game:\n\n"
  314.             "   ASCII - Contains NO color codes or IBM graphic characters.\n\n"
  315.             "    ANSI - Contains COLOR, but uses ONLY character graphics.\n\n"
  316.             "IBM-ANSI - Contains BOTH Color and IBM Graphic Characters.\"")
  317.       (choices "The ASC Version (Ascii)"
  318.                "The ANS Version (Amiga-Ansi)"
  319.                "The IBM Version (IBM-Ansi)")
  320.       (default "111")
  321.     )
  322.   )
  323.  
  324.   (if (= ver 0)
  325.     (
  326.       (message "Pat exclaims, \"What? you have to specify at least ONE of "
  327.                "the versions. Installing ALL versions now!\"")
  328.       (set ver "111")
  329.     )
  330.   )
  331.  
  332.   (if (= ver 7) (set Ver0 1 Ver1 1 Ver2 1 Ver3 1))
  333.   (if (OR (= ver 1) (= ver 3) (= ver 5)) (set Ver1 1))
  334.   (if (OR (= ver 2) (= ver 3) (= ver 6)) (set Ver2 1))
  335.   (if (OR (= ver 4) (= ver 5) (= ver 6)) (set Ver3 1))
  336.  
  337.   (complete 50)
  338.  
  339.   (working "Pat continues, \"Unpacking Wheel of Fortune support files.\"")
  340.  
  341.   (set df (getenv "WOFPath") df2 (cat df "Graphics/") df3 (cat df "Install/"))
  342.  
  343.   (run "lha x PFiles:WOFTemp/WoFortune/Support.LHA "df)
  344.  
  345.   (complete 60)
  346.  
  347.   (if (OR (= Ver0 1) (= Ver1 1))
  348.     ( (working "...Installing ASCII Game Module & Docs...")
  349.       (run "lha x PFiles:WOFTemp/WoFortune/GameASC.LHA "df)
  350.       (complete 65)
  351.       (working "...Installing ASCII Graphic Picture Files...")
  352.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsASC.LHA "df2)
  353.     )
  354.   )
  355.  
  356.   (complete 70)
  357.  
  358.   (if (OR (= Ver0 1) (= Ver2 1))
  359.     ( (working "...Installing ANSI Game Module & Docs...")
  360.       (run "lha x PFiles:WOFTemp/WoFortune/GameANS.LHA "df)
  361.       (complete 75)
  362.       (working "...Installing ANSI Graphic Picture Files...")
  363.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsANS.LHA "df2)
  364.     )
  365.   )
  366.  
  367.   (complete 80)
  368.  
  369.   (if (OR (= Ver0 1) (= Ver3 1))
  370.     ( (working "...Installing IBM-ANSI Game Module & Docs...")
  371.       (run "lha x PFiles:WOFTemp/WoFortune/GameIBM.LHA "df)
  372.       (complete 85)
  373.       (working "...Installing IBM-ANSI Graphic Picture Files...")
  374.       (run "lha x PFiles:WOFTemp/WoFortune/Graphics/GraphicsIBM.LHA "df2)
  375.     )
  376.   )
  377.  
  378.   (complete 90)
  379.  
  380.   (set f3
  381.     (askbool
  382.       (prompt "Pat tells you, \"I need to make a change to line 920 of your "
  383.               "BBSTEXT file, as well as ADDING three NEW commands to Menu # 2 "
  384.               "in your BBSMENU file. Is it alright if I do this automatically?\"")
  385.       (help "Slinking up to you, Vanna says, \"The installer uses the "
  386.             "FPInstall tool to make automatic changes to lines in your "
  387.             "BBSTEXT and BBSMENU files. Dotoran assures me it works 100%, "
  388.             "but I guess we can ALL be a little skeptic. Backups of BOTH "
  389.             "files are automatically created, so you really won't destroy "
  390.             "anything in the process.\"")
  391.       (default "1")
  392.       (choices "Yes, Go Ahead!" "No, I'll Do It!")
  393.     )
  394.   )
  395.   (if (= f3 1)
  396.     ( (working "Pat asks, \"Please wait a second, while I make the needed "
  397.                "changes to all BBSTEXT/BBSMENU files...\"")
  398.       (run "FPInstall WOFc.FP_Install CNET:")
  399.     )
  400.     (message "Pat looks at you quizically, then says, \"Alright, but be "
  401.              "sure to read the `README.guide' file to find out which lines "
  402.              "to change!\"")
  403.   )
  404.  
  405.   (complete 95)
  406.  
  407.   (working "Pat states, \"Almost done with the installation. Just have to "
  408.            "clean up a bit first!\"")
  409.  
  410.   (run "delete pfiles:WOFTemp/ all")
  411.   (makedir df"Install")
  412.   (run "copy #? "df3)
  413.   (run "delete #? all")
  414.  
  415.   (complete 97)
  416.  
  417.   (message "Wheel of Fortune successfully upgraded to v6.41!\n\nYou'll "
  418.            "need to RELOAD your BBSTEXT/BBSMENU files by selecting the "
  419.            "CNet Control Panel, then pressing the RAMIGA-T key combo.\n"
  420.            "\nYou should then log onto your bbs and type WOFS from your "
  421.            "Main Prompt> to enter the game's Config File, as there are a "
  422.            "few new options you'll want to set. You can also type WOFC to "
  423.            "enter the UserConfig file.\n\nPlease refer to the `README.guide' "
  424.            "file for information on the other commands that were added to "
  425.            "your BBSMENU file.")
  426.  
  427.   (complete 100)
  428.  
  429.   (message "Three NEW commands were added to your BBSMENU file, however "
  430.            "any existing WOF Quick Command you may have set up was not "
  431.            "touched. You'll want to make sure you edit any existing WOF "
  432.            "Quick Command you may be using, so that it correctly points "
  433.            "to the loader file, which is now named `Loader' and resides "
  434.            "in your "df" directory.\n\nLine 920 in your BBSTEXT file is "
  435.            "simply the stock line, minus the \@1 command, so you may "
  436.            "wish to recolorize this line if you had in the past.")
  437.  
  438.   (exit)
  439. )
  440.  
  441. (run "rx WOF_Install.Rexx1")
  442.  
  443. (set f3 (getenv "WOFVer"))
  444.  
  445. ; Actual script STARTS here...
  446.  
  447. (welcome "Vanna exclaims, \"Welcome to Wheel of Fortune!\"\n")
  448.  
  449. (complete 0)
  450.  
  451. (working "Pat shakes your hand and tells you, \"Welcome to Wheel of "
  452.          "Fortune! Please wait while I unpack the `WOF.LHA' archive "
  453.          "to a temporary directory.\"")
  454.  
  455. (makedir temp)
  456.  
  457. (run "lha x wof.lha PFiles:WOFTemp/")
  458.  
  459. (complete 10)
  460.  
  461. (if (OR (= f3 1) (= f3 2))
  462.   (set f1
  463.     (askchoice
  464.       (prompt "Pat asks, \"What would you like to do right now?\"")
  465.       (help "Vanna confers with you, \"I see you're already running "
  466.             "either version v6.3b(c) or v6.40 of Wheel of Fortune! If "
  467.             "you'd like, you can choose to UPGRADE to v6.41 now!\"")
  468.       (choices "Convert v6.40    to v6.41 Now!"
  469.                "Convert v6.3b(c) to v6.41 Now!"
  470.                "Quit the Installation Now!")
  471.     )
  472.   )
  473.   (set f2
  474.     (askchoice
  475.       (prompt "Pat asks, \"Would you like to install Wheel of Fortune, v6.41 "
  476.               "into your system for the First Time right now?\"")
  477.       (help "Winking, Vanna tells you, \"It doesn't look as if you've "
  478.             "ever run a copy of Wheel of Fortune before. I could not "
  479.             "locate the WoFortune.Config file in your PFILES: path. "
  480.             "Perhaps this is the first time you've ever tried to run "
  481.             "Wheel of Fortune? If not, please check your system for "
  482.             "possible problems. It's possible you're using a version "
  483.             "of Wheel of Fortune earlier than v6.3b(c). If this is the "
  484.             "case, you'll have to first update to v6.3b(c), before trying "
  485.             "to use this script\"")
  486.       (choices "Yes, Install Wheel of Fortune, v6.41!"
  487.                "No, Quit the Installation Right Now!")
  488.     )
  489.   )
  490. )
  491.  
  492. (if (= f1 0) (CONVERT640))
  493. (if (= f1 1) (CONVERT63C))
  494. (if (= f2 0) (FIRST_TIME))
  495.  
  496. (message "Pat frowns, then tells you, \"Alright then, perhaps later...\"")
  497. (exit)
  498.